home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
me_cd22.zip
/
MUTT2.ZIP
/
NEXTFILE.MUT
< prev
next >
Wrap
Text File
|
1992-04-27
|
498b
|
26 lines
;; files.mut: sequencally load the files specified on the command line
;; If ^U used, tries to load that many files.
;; C Durland Public Domain
(small-int nth-file) ; file to load next
(defun
next-file
{
(int n)
(n (arg-prefix))
(while (>= (-= n 1) 0)
(if (< nth-file (argc))
{
(visit-file (argv nth-file))
(delete-other-windows)
(+= nth-file 1)
}
{ (msg "All files read in.")(done) }
)
)
}
MAIN { (nth-file 1) }
)